home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Oberon⁄F™ 1.1 / Dev / Rsrc / New / Cmds1 (.txt) < prev    next >
Encoding:
Oberon Document  |  1995-08-09  |  2.1 KB  |  52 lines  |  [oODC/obnF]
  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. TextViews.StdViewDesc
  11. TextViews.ViewDesc
  12. TextModels.StdModelDesc
  13. TextModels.ModelDesc
  14. TextModels.AttributesDesc
  15. Helvetica
  16. Helvetica
  17. Helvetica
  18. StdStamps.StdViewDesc
  19. Helvetica
  20. MODULE NewCmds;
  21.     IMPORT Views, FormModels, FormViews, FormControllers;
  22.     (** sample command **)
  23.     PROCEDURE Do*;
  24.     (** guard: FormCmds.FocusGuard **)
  25.         VAR c: FormControllers.Controller; f: FormModels.Model; r: FormModels.Reader; v: Views.View;
  26.     BEGIN
  27.         c := FormControllers.Focus();    (* get focus controller, if there is a focus view and if this view is a form view *)
  28.         IF c # NIL THEN
  29.             IF c.HasSelection() THEN
  30.                 f := c.form;    (* get the controller's form model *)
  31.                 r := f.NewReader(NIL);    (* set up new reader at beginning of form *)
  32.                 r.ReadView(v);
  33.                 WHILE v # NIL DO    (* iterate over all views in form *)
  34.                     (* do something with v *)
  35.                     r.ReadView(v)
  36.                 END
  37.             END
  38.         END
  39.     END Do;
  40. END NewCmds.
  41. TextControllers.StdCtrlDesc
  42. TextControllers.ControllerDesc
  43. Containers.ControllerDesc
  44. Controllers.ControllerDesc
  45. TextRulers.StdRulerDesc
  46. TextRulers.RulerDesc
  47. TextRulers.StdStyleDesc
  48. TextRulers.StyleDesc
  49. TextRulers.AttributesDesc
  50. Helvetica
  51. Documents.ControllerDesc
  52.